Do

	WScript.Sleep 10000

	Set ws = CreateObject("Wscript.Shell") 
	ws.run "cmd /c makeHTML.bat", vbhide 

Loop